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Disclaimer 



Although this program was tested by its author prior to submission, 
no warranty, express or implied, is made by the author, 1620 USERS 
Group, or IBM as to the accuracy and functioning of the program and 
related program material and no responsibility is assumed by the 
author, 1620 USERS Group, or IBM in connection therewith. 



1 



CARD HASH TOTAL 
WILLIAM G. WSIDETAN 
JAMBS H. VAN NTILAND 
MARQUETTE UNIVERSITY" 
MILWAUKEE, WISCONSIN 
DECEMBER 1$, 1961 



OttTFUTING CENTER 

subroutine manual 

FOR THfe) IBM 1620 



Program: 
Date: 

Programmer: 
Description: 

Coding 
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Input Format? 
Output Format: 
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CARD HASH TOTAL 
October 10, l?6l 

Mr» William G« Weideman, (revised by James H, Van Nuland) 

CARD HASH TOTAL is a card routine designed to offord a means 
of rapidly verifying the identity of a card deck by comparison of 
a derived total with a standard deck* The total so derived ia punched 
on a card in the form suitable to be used as first card of the deck. 

Card SPS 



Any card deck that can be read with a Read Alphameric (37 ) 
instruction,, 

The single card contains,, in cols* 1-19 and 6l~20,. machine 
instructions to read numeric into 000C0 and branch to 00000* Cols* 
30»-)_i9 contains the 20«digit Hash Total. 

Any size deck may be used; the cards must contain valid 1620 
punching, ie, can be read by a read alphabetic instruction (37)- 

Not exactly known, the probability of equal hash totals is 
probably less than 10- 18 with non-identical decks* Incorrect 
sequence will affect the totals, as will blank card3 or extra cards, 
etc* If two cards that should be a multiple of 99 apart in the deck 
are interchanged, the total will be un-af fected* The odds on this,, 
however, are extremely small* 

Card input speed* 

Basic 2QK storage 1620; Card I/O* 



Before loading, set the switches as follows: 



Face 2 



CARD HASH TOTAL 



I/O; Parity switches, stop, Overflow,, program,. 

Nunber I: ON to type in check total. 

Number If OFF to read check total from card,. 

Number 2: ON to omit punched output when not equal. . 

Number 2z OFF to punch total card if check total is not equal., S^jl 

Number 3* ON to punch total card if check total is equal. 

Number 3: OFF to omit punched output when equal, 

Press RESET , than load the 29 cards of Hash Total. Note that the 
first card (numbered 00000 ) is a hash total for the rest of the deck* 
It may be left in place,, 

Follow the program deck by your deck as follows; 

If SW "i is off, load the total card, or a blank card if check 
total is not known* Immediately following this, load your deck.. Do 
not follow it by blank cards unless these are to be considered part 
of your deck, IMs program uses the last card indicator, so eacti 
deck to be checked is loaded separately, together with the appropriate 
total card, VJhen the road hopper empties, press read start. 

If 5W 1 is on, the program will types 

MTER CHECK TOTAL 

If known, type ; the twenty dibits of check total* Leave no spaces ; 
flag only the low -order position. No record nark is needed* lead, 
your deck wi thout any total card or blank | read start; program start. 

OUTP UT 

The machine will compare the calculated total with the check 
total* If equal 9 the -nessage EQUAL will be typed, XF* ftoir^qual, the 
message NOT EQUAL will be typed, followed by the hOSh total* 

If not equal j switch 2 will be tested to determine whefc'.ser to 
punch the total., The program stops on a 1*8 halt instruction* 

If equals switch 3 will be tested to determine whether to punch 
the total., The prorram then stops on a UB halt ins trie bicn. 

If punched* the total card is followed by a blank card'* this is 
done so that the punched card will be in the- hopper ^ available for use 
without hairing to non-process runout, 

A two-dipit card count is kept. If it xalls ot\ 00 It -.l,v. 
incremented an additional step. Each card is read a.lph?i >-»;>• ri c*vl 1 y 



COMPUTER 



Pa*?e 3 
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Ren arks i 



and the 160 dibits are scanned to substitute a 9 for each 
record mark* The 160 dibits is then multiplied by the card 
count and the 162 ~ digit product is added to a sunu 

Following the last card* this swi is split into ZMirxl 
fields and subtracted from 20~di£it zero. The card count is 
added, and this is then the Hash Total. 

Program nay be restarted simply by pressing Sfart > 
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"Description of Decks ~ * —™— — - — — 

Source Deck 

This deck is the source SP3 Statement for the program • 
They are serially numbered in columns 1-5* Column 75> 
contains a zero. 

Operating Deck 

This is the smaller of the two decks. It is a reduced 
version of the machine-language program, numbered in columns 
76-^0, A Hash Total of the deck is in place as the first 
card, and may be left in place. 

The deck was prepared as follows: 

The source deck was assembled by SPS# The core was 
cleaned by transmitting numerical blanks throughout. The 
assembled SPS decks was loaded. Next, the contents of the 
core was punched into cards, (as much as needed) using a 
utility program, resulting in a self-loading deck. This 
was processed through a second utility program which re- 
placed blank columns with numerical blanks. This deck was 
then Hash Totaled, and is the Operating Deck. 
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00020* FILE NUMBER 1.6.503 

00030* OCTOBER 25, 1961. 
00040* 



00050 


DORG 


402 


00402 








00060 


CF 


T+12 


00402 


33 


01830 


00000 


00070START 


TF 


SM,ZSM 


00414 


26 


02179 


01609 


00080 


TFM 


CNT,,10 

¥ ¥ 


00426 


16 


02016 


000 DO 


0009 


SF 


IN-1 


00438 


32 


01854 


00000 


00100 


BLC 


*+12 


00450 


46 


00462 


00900 


00110 


BC1 


*+48 


00462 


46 


00510 


00100 


00120 


RNCD 


HASHIN-48 


00474 


36 


01610 


00500 


00130 


SF 


HASH IN- 19 


00486 


32 


01639 
00570 


00000 


00140 


B 


READ-1 2 


00498 


49 

• ✓ 


00000 


00150 


WATY 


MESS 


00510 


39 


01375 


00100 


00160 


RCTY 




005 22 
00534 


34 


00000 


00102 


00170 


RNTY 


HASH IN-1 9 


36 


01639 
00522 


00100 


00180 


BC4 


*-24 


00546 


46 


00400 


00190 


SF 


hash in- 19 


00558 


32 


01639 
00582 
01855 


00000 


00200 


Bl 


*+ 12,600 


00570 


46 


00600 


0021 OREAD 


RACD 


IN 


00582 


37 


00500 


00220 


Bl 


*+12,l600 


0059 4 


H-G 


00606 


01600 


00230 


Bl 


*+12,1700 


00606 


4 6 


00618 


01700 


00240 


Bl 


*+12,700 


00618 


46 


0063 


00700 


00250 


Bl 


ER1 ,600 


00630 


46 


01230 

00665 
OO69O 


00600 


00260 


TFM 


X+11 , IN+15G 


00642 


16 


02013 


00270X 


BMR 


*+36 




45 


00000 


00280 


TF 


*-H8,X+11 


00666 


2o 


00684 


00665 


00290 
00300 


TDM 


,9 


0067S 


15 


00000 


00009 


SM 


X+1 1 ,2 


00690 


1 2 


00665 


00002 


00310 


CM 


X+1 1 , ! M 


00702 
00714 


14 


00665 


01855 


00320 


BNL 


X 


4 b 


00654 


01300 


00330 


AM 


CNT,1 ,10 


00726 


1 1 


02016 


00001 


00340 


BZ 


*~12 


00738 


46 


00726 


01200 


00350 


TF 


80,ZSM-1C 


00750 


26 


00080 


01591 


00360 


M 


IN+15&,CMT 


00762 


23 


02013 


02016 


OO37O 


A 


SM,99 


00774 


21 


02179 


OOO59 


00380 


BA 


ER2 


00786 


46 


01290 


01900 


003^0 


BNLC 


READ 


00 79 8 


47 


00582 


00900 
00102 


00400 


RCTY 




00810 


34 


00000 


00410 


SF 


SM 


00822 


32 


02179 
02160 


00000 


00420 


SF 


SM- 19 


00834 


32 


00000 


00430 


SF 


SM- 39 


00846 


32 


02140 


00000 


00440 


SF 


SM- 59 


00858 


32 


02120 


00000 


00450 


SF 


SM- 79 


008 70 


32 


02100 


00000 


00460 


SF 


SM- 99 


00882 


32 


02080 


00000 


00470 


SF 


SM-119 


00894 


32 


02060 


00000 


00480 


SF 


SM-139 


OC9O6 


32 


02040 


00000 


00490 


SF 


SM-159 


009 18 


32 


02020 


00000 


00500 


TF 


T,SM 


OO93O 


26 


01818 


02179 




one 1 n 


c 


1 , 1 1 z u 


UU J ' ! Z 


9 9 
zz 


1 p 1 p 
u 1 c 1 


O 9 1 CO 

uzoy 


one 90 

UUp zu 


c 



T Q M— Li 


nn^ c i± 
one 

uuy ob 


9 9 

zz 


O 1 " 1 P 


O 9 1 2Q 

uz 1 :>y 


nnr 9 n 


c 



T Q M r„ n 


9 9 

zz 


O 1 P 1 P 
U I O I 


9 1 1 
uzi 1 y 


one h n 

UUpHU 


c 



t k< c r\ 
1 , Mt~ OU 


uuy /c 


9 ') 

zz 


1 1 
U 1 1 


A An c\ 

uzuyy 


aoc r a 


c 



T C M_ 1 on 
I , orl~ I UU 


n r- 
UUy y U 


9 9 

zz 


1 1 p 
U I I * 


O 9 070 

Ozo/y 


UUp oU 


c 


T C. M_ 10O 


Ol 009 
u 1 UUZ 


9 9 

ZZ 


1 p 1 Pi 

U I O I O 


O 9 Ocn 

uzu^y 


ooc 70 
UUp /u 


c 



T C M_ 1 l\ O 
I , Mr I 4U 


01014 


9 9 

ZZ 


O 1 O 1 Q 
U 1 Ci 1 


0909Q 

uzu^y 


uupou 


C 


t cm 1 £ n 
I , M~ I b U 


A 1 O 9 Z 

Ul UZb 


zz 


1 pm q 
Ul 1 


A 9 A 1 Ci 

uzui y 


uu^y u 


A 

A 


I , L N I 


A1 f\0 P 

U] vj> 


1 
Z I 


1 p 1 p; 
Ul O 1 b 


09 A 1 C 

uzui b 


oo£ ao 
uubuu 


L 


UACUI M T 

rlAbn 1 N , 1 


1 or 
U I U^ U 


9/l 


01 AcP 
u i bpo 


01 P 1 P 
u | | 


nn/" 1 a 
UUbl U 


t n 
I U 


T i 1 T 1 O 
1+1 , 1 +Z 


O 1 0£ 9 

Ul Ubz 


9 C 


01 p 1 

u 1 1 y 


01 p, on 
u 1 zu 


U0620 


Cr 


T 1 n 


Ol A"7]i 

U| U/^f 

1 AC f 

01 Ooo 


9 9 

33 


1 "7on 

Ul /39 


OAOAO 

uuuuu 


AA f "> A 

00630 


n r* 

BE 


• 1 AC 

*+l 0b 


46 


01 1 94 


A 1 O A A 

Ul zUU 


UUdhO 


\/l A T V 

WA 1 Y 


NTEQ 


Ul U^o 


33 


O 1 9 CT 1 

Ul il? 1 


001 on 
UU 1 UU 


A A/* r A 


D O 

dLz 


x +3b 


A1 11A 

Ul 1 1 u 


4 b 


01 1 )t c 
Ul 14b 


ooonn 
uuzuu 


An r f c\ 
OUooO 


1 . / m c n 


L !J I /- , 


A 1 1 9 O 

ui 1 ZZ 


3b 


O 1 "7 1 A 

Ul //u 


ooknn 

UUHUU 


f\r\c "7A 
006/0 


t./M /■* n 

V/NCD 


DLK--/9 


u 1 134 


3b 


m Z n A 

ui by u 


nn/i nn 

UUHUU 


A A/!! O A 

OObbO 


TD 


T 1 1 / 1 A A 

1 +1 , '4UU 


A1 1 li £ 

Ul 1 '4b 


9 C 

2i> 


1 p 1 
u 1 1 y 


nn/i nn 

UUHUU 


uuby o 


\//M TV 

WIN 1 Y 


T 10 

i — i y 


011 CP 
U I I p 


^0 


01 700 
u i /yy 


UU 1 UU 


UU /UUriL I 


u 
n 




Ol 1 70 
U II /U 


H-L. 


ooono 
uuuuu 


nnnnn 


OAT7 1 A 
UU/ | U 


n 

D 


C T A D T 
O I Af< I 


01 1 C 9 
U I I Z 




00/1 1 )i 

UU^t I '4 


nnnnn 
uuuuu 


Am ^ n 
00/20 


WATY 


EQUAL 


o 1 1 n /1 

Ul rj '4 


33 


n 1 9 9 7 

01 3 2/ 


nm nn 

UU I UU 


UU/3U 




rIL I 


019 0^ 
U I ZUo 


/i "7 


A1 1 70 
U II /U 


UUjUU 


AA "7 /• A 

UU /hU 


B 


*--y 


U 1 .<: 1 




O 1 1 9 9 

UN ZZ 


ooonn 

UUUUU 


00/50* 


j 
7 












00760" 














OO/7OEK i 


RCTY 




n 1 o 
Ul 13 U 




onooo 
UUUUU 


001 no 
UU I uz 


a a ~7 n 
007o0 


1 , 1 J\ TV 

WATY 


c n n 1 

ERR I 


Ul z-M-Z 


P 

33 


01415 


001 00 
uu 1 UU 


nmo a 

UU/y U 


DP TV 

KL 1 Y 




01 9 C / 1 
u 1 z p L f 


9 k 




nm n? 

UU 1 \i £. 


00800 


H 




01266 


48 


00000 


00000 


00810 


B 


START 


01 278 


43 


00414 


00000 


00820ER2 


RCTY 




01 230 


34 


00000 


00102 


00830 


WATY 


ERR2 


01302 


39 


01431 
01254 


00100 


00840 


B 


*-60 


01314 


43 


00000 



0085 0* 



00860* 
OO87OEQUAL 

00880NTEQ 
00890MESS 



DAC 
DAC 
DAC 



12, EQUAL 
12, NOT E0UAL <«> 
20, ENTER CHECK TOTAL 
01375 00020X2 ENTER CHECK TOTAL % 
00900ERR1 DAC 8, ERROR 1(3 
00910ERR2 DAC 8, ERROR 1^ 
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